home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE03 / VALID / VALID.ZIP / VTMAIN.PAS < prev   
Pascal/Delphi Source File  |  1995-07-23  |  2KB  |  102 lines
  1. unit Vtmain;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Valid, Buttons, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Validator: TValidator;
  12.     Panel1: TPanel;
  13.     ValidateButton: TSpeedButton;
  14.     ExitButton: TSpeedButton;
  15.     Memo1: TMemo;
  16.     procedure ExitButtonClick(Sender: TObject);
  17.     procedure FormCreate(Sender: TObject);
  18.     procedure ValidateButtonClick(Sender: TObject);
  19.     procedure ValidatorVldFailed(Sender: TObject);
  20.     procedure ValidatorVldOk(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.     ValidationOk : boolean;
  24.     procedure UpdateControls;
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   Form1: TForm1;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TForm1.UpdateControls;
  37. begin
  38.   if Validator.IsValidated then
  39.   begin
  40.     ValidationOk:=true;
  41.     Memo1.ReadOnly:=false;
  42.     with ValidateButton do
  43.     begin
  44.       Glyph.Handle:=LoadBitmap(hInstance,'BBCANCEL');
  45.       NumGlyphs:=2;
  46.       Hint:='Devalidate';
  47.     end;
  48.   end
  49.   else
  50.   begin
  51.     ValidationOk:=false;
  52.     Memo1.ReadOnly:=true;
  53.     with ValidateButton do
  54.     begin
  55.       Glyph.Handle:=LoadBitmap(hInstance,'BBOK');
  56.       NumGlyphs:=2;
  57.       Hint:='Validate';
  58.     end;
  59.   end;
  60. end;
  61.  
  62. procedure TForm1.ExitButtonClick(Sender: TObject);
  63. begin
  64.   Close;
  65. end;
  66.  
  67. procedure TForm1.FormCreate(Sender: TObject);
  68. begin
  69.   ValidationOk:=Validator.IsValidated;
  70.   UpdateControls;
  71. end;
  72.  
  73. procedure TForm1.ValidateButtonClick(Sender: TObject);
  74. begin
  75.   if ValidationOk then
  76.   begin
  77.     Validator.Devalidate;
  78.     ValidationOk:=false;
  79.   end
  80.   else
  81.   begin
  82.     Validator.Validate;
  83.     ValidationOk:=Validator.IsValidated;
  84.   end;
  85.   UpdateControls;
  86. end;
  87.  
  88. procedure TForm1.ValidatorVldFailed(Sender: TObject);
  89. begin
  90.   MessageBeep(MB_ICONSTOP);
  91.   MessageDlg('Validation Failed',mtError,[mbOk],0);
  92. end;
  93.  
  94. procedure TForm1.ValidatorVldOk(Sender: TObject);
  95. begin
  96.   MessageBeep(MB_ICONASTERISK);
  97.   MessageDlg('Validation Successful',mtInformation,
  98.               [mbOk],0);
  99. end;
  100.  
  101. end.
  102.